<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<!--#include virtual="/config.asp"-->
<!--#include virtual="/includes/core-functions.asp"-->
<%
if request.form("name")<>"" and request.Form("email")<>"" and request.Form("message")<>"" then
get_core_settings()
Dim testo
	testo = "From: " & request.form("name")
	if request.Form("website") <> "" then testo = testo & " (" & request.Form("website") & ")"
	testo = testo & vbcrlf
	testo = testo & "Message: " & vbcrlf & request.form("message")
	sendEmail testo,"Message from " & strip_html(zb_name) & ": " & request.Form("subject"),request.Form("email"),cfg_mailto
	response.Redirect "/contact.asp?msg=Message sent, thanks"
	else
		response.Redirect "/contact.asp?msg=Please complete all the form fields"
end if

%>